home *** CD-ROM | disk | FTP | other *** search
/ Aminet 21 / Aminet 21 (1997)(GTI - Schatztruhe)[!][Oct 1997].iso / Aminet / comm / mail / MailImport.lha / MailImport.mdrx next >
Text File  |  1997-08-02  |  868b  |  31 lines
  1. /* $VER: MailImport.mdrx 3.0 (02 AUG 97)
  2. ** by Charles Patterson <midian@azstarnet.com>
  3. ** http://www.azstarnet.com/~midian/
  4. **
  5. ** Description: Imports mail into Microdot-II from requester
  6. **
  7. ** Requires: Microdot-II v0.198 (© 1997 by Oliver Wagner)
  8. **           rexxreqtools.library 1.3 (© 1992-94 Rafael D'Halleweyn)
  9. **
  10. ** Instructions: Place in Microdot-II/Rexx path
  11. **               Adjust 'defpath' for your computer
  12. **               Run from Microdot-II ARexx menu
  13. **
  14. ** --- Default path to import from: --- */
  15. defpath = "YAM:archived"
  16.  
  17. OPTIONS RESULTS
  18.  
  19. IF ~SHOW('L','rexxreqtools.library') THEN
  20.     ADDLIB('rexxreqtools.library',0,-30,0)
  21.  
  22. filenames = RTFILEREQUEST(defpath,,'Select files','_Import','rtfi_flags = freqf_multiselect|freqf_patgad rtfi_matchpat=~(.index)',files)
  23.  
  24. IF files THEN
  25.     DO n = 1 to files.count
  26.         MAILIMPORT files.n
  27.     END
  28.  
  29. EXIT
  30.  
  31.